﻿Public Class XLSgenerator
    Public Sub xlsGen(ByVal tableString As String, ByVal Response As HttpResponse)
        Response.CacheControl = "no-cache"
        Response.Expires = -1
        Response.ContentType = "application/octet-stream"
        Response.AddHeader("content-disposition", "attachment; filename=MyReport.xls")

        Response.Write(tableString)
        Response.end()
    End Sub
End Class
